home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / reql.def < prev    next >
Encoding:
Modula Definition  |  1993-11-04  |  3.1 KB  |  76 lines
  1. (* ReqL.def       ported to M2Amiga 4.0 1991 by Jürgen Zimmermann  *)
  2. (* Req.mod        ported to Oberon 1990 by Achim Siebert           *)
  3. (* reqlibrary.h © 1988/1989 reserved by Colin Fox and Bruce Dawson *)
  4.  
  5.  
  6. DEFINITION MODULE ReqL {"req.library",1};
  7.  
  8. IMPORT E: ExecD,
  9.        I: IntuitionD,
  10.        G: GraphicsD,
  11.        D: DosD,
  12.        S: SYSTEM,
  13.        r: ReqD;
  14.  
  15. VAR
  16.   reqVersion:INTEGER;
  17.   reqBase:r.ReqLibPtr;
  18.  
  19. CONST
  20.       reqName     = "req.library";
  21.       reqMinVersion  = 1;
  22.  
  23.  
  24. PROCEDURE Center(VAR nw{8}:I.NewWindow;x{0},y{1}:INTEGER);
  25.    CODE -30;
  26. PROCEDURE SetSize(maxValue{0},viewSize{1}:LONGINT): INTEGER;
  27.    CODE -36;
  28. PROCEDURE SetLocation(maxValue{0},viewSize{1},value{2}:LONGINT): INTEGER;
  29.    CODE -42;
  30. PROCEDURE ReadLocation(maxValue{0},viewSize{1}:LONGINT;potValue{2}:INTEGER): LONGINT;
  31.    CODE -48;
  32. PROCEDURE Format(buffer{10},string{8}: S.ADDRESS;VAR values{9}:S.ADDRESS);
  33.    CODE -54; (* ehemals {8}: ARRAY OF CHAR *)
  34. PROCEDURE FileRequest(filereq{8} :r.FileRequesterPtr): BOOLEAN;
  35.    CODE -84;
  36. PROCEDURE ColorRequester(desiredColor{0}:LONGINT): LONGINT;
  37.    CODE -90;
  38. PROCEDURE DrawBox(rp{9}: G.RastPortPtr;minX{0},minY{1},maxX{2},maxY{3}:LONGINT);
  39.    CODE -96;
  40. PROCEDURE MakeButton(buffer{8}:r.TwoImageGadgetPtr;image{9},image2{10}:S.ADDRESS;width{0},heigth{1},depth{2}:LONGINT);
  41.    CODE -102;
  42. PROCEDURE MakeScrollBar(buffer{8}:r.ScrollBlockPtr;flags{0}:S.LONGSET;size{1},x{2},y{3}:LONGINT);
  43.    CODE -108;
  44. PROCEDURE PurgeFiles(filereq{8}:r.FileRequesterPtr);
  45.    CODE -114;
  46. PROCEDURE MakeGadget(buffer{8}:r.GadgetBlockPtr;string{9}: S.ADDRESS;x{0},y{1}:LONGINT);
  47.    CODE -126;  (* ehemals: {9}: ARRAY OF CHAR *)
  48. PROCEDURE MakeString(buffer{8}:r.StringBlockPtr;stringbuff{9},undobuff{10}: S.ADDRESS;maxwidthbits{0},maxnumchars{1},x{2},y{3}:LONGINT);
  49.    CODE -132;  (* ehemals: {10}: ARRAY OF CHAR *)
  50. PROCEDURE MakeProp(buffer{8}:r.PropBlockPtr;width{0},height{1}:LONGINT;flags{2}:S.LONGSET);
  51.    CODE -138;
  52. PROCEDURE LinkGadget(buffer{8}:r.GadgetBlockPtr;string{9}:S.ADDRESS;VAR nw{11}:I.NewWindow;x{0},y{1}:LONGINT);
  53.    CODE -144;  (* ehemals: {9}: ARRAY OF CHAR *)
  54. PROCEDURE LinkStringGadget(buffer{8}:r.StringBlockPtr;stringbuff{9},undobuff{10}:S.ADDRESS;VAR nw{11}:I.NewWindow;widthbits{0},
  55.                            numchars{1},x{2},y{3}:LONGINT);
  56.    CODE -150;  (* ehemals: {10}: ARRAY OF CHAR *)
  57. PROCEDURE LinkPropGadget(buffer{8}:r.PropBlockPtr;VAR nw{11}:I.NewWindow;width{0},height{1}:LONGINT;flags{2}:S.LONGSET;leftEdge{3},topEdge{4}:LONGINT);
  58.    CODE -156;
  59. PROCEDURE GetString(buffer{8}:S.ADDRESS;title{9}:S.ADDRESS;window{10}:I.WindowPtr;visibelchars{0},maxchars{1}:LONGINT):BOOLEAN;
  60.    CODE -162;  (* ehemals: {8},{9}: ARRAY OF CHAR *)
  61. PROCEDURE RealTimeScroll(scrollstruct{8}:r.ScrollStructPtr);
  62.    CODE -168;
  63. PROCEDURE TextRequest(trs{8}:r.TRStructurePtr):INTEGER;
  64.    CODE -174;
  65. PROCEDURE GetLong(gl{8}:r.GetLongStructPtr):BOOLEAN;
  66.    CODE -180;
  67. PROCEDURE RawKeyToAscii(code{0},qualifier{1}:INTEGER;iaddress{8}: S.ADDRESS);
  68.    CODE -186;
  69. PROCEDURE ExtendedColorRequest(extcolreq{8}:r.ExtendedColorRequesterPtr):LONGINT;
  70.    CODE -192;
  71. PROCEDURE NewGetString(ngetstr{8}:r.GetStringStructPtr):BOOLEAN;
  72.    CODE -198;
  73.  
  74. END ReqL.
  75.  
  76.